--- gforth/kernel/quotes.fs	2001/05/04 07:41:03	1.4
+++ gforth/kernel/quotes.fs	2001/06/16 22:53:38	1.5
@@ -25,7 +25,11 @@ require ./vars.fs
 \ create s"-buffer /line chars allot
 has? compiler 0= 
 [IF] : s" [ELSE] :noname [THEN]
-	[char] " parse save-mem ;
+	[char] " parse
+[ has? OS [IF] ]
+    save-mem
+[ [THEN] ]
+;
 \    	/line min >r s"-buffer r@ cmove
 \    	s"-buffer r> ;
 has? compiler [IF]