--- gforth/kernel/int.fs	2004/12/28 22:37:08	1.113
+++ gforth/kernel/int.fs	2004/12/29 14:15:12	1.114
@@ -133,9 +133,8 @@ const Create bases   0A , 10 ,   2 ,   0
     dup 0= if
 	false exit
     endif
-    over c@ >r
-    1 /string s" '" 2swap string-prefix?
-    r> 0 rot ;
+    char@ s" '" 2swap string-prefix?
+    0 swap ;
 
 : s>unumber? ( addr u -- ud flag )
     over c@ '' = if