--- gforth/kernel/xchars.fs	2005/01/06 21:54:18	1.2
+++ gforth/kernel/xchars.fs	2005/01/12 21:21:53	1.3
@@ -54,11 +54,11 @@ DEFER -TRAILING-GARBAGE ( addr u1 -- add
     -1 /string ;
 
 : c!+? ( c c-addr1 u1 -- c-addr2 u2 f )
-    1 chars u< if \ or use < ?
-	>r dup >r c!
-	1 r> r> /string true
-    else
+    dup 1 chars u< if \ or use < ?
 	rot drop false
+    else
+	>r dup >r c!
+	r> r> 1 /string true
     then ;
 
 : c-size ( c -- 1 )