From 2701d48bd99385f8a6d9ed8491c668e331837ab6 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sun, 10 Jan 2021 10:46:54 +0900
Subject: [PATCH] minor fix

---
 bootstrap.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index b97cfe1..11d0dd7 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1331,7 +1331,7 @@ create word-buffer s" 64" >number drop cell+ allot drop
 ;
 
 :noname
-    rdrop   \ drop 2nd stage
+    rp0 rp! \ drop 2nd stage
     begin
         ['] interpret catch
         ?dup if
@@ -1902,7 +1902,7 @@ stdin_ push-inputstream
 ;
 
 :noname
-    rdrop   \ drop 3rd stage
+    rp0 rp! \ drop 3rd stage
 
     ['] interpret-loop catch bye
 ; execute