fixes

testfiles/combinedtest.f

@@ -25,6 +25,9 @@ VARIABLE VERBOSE
 
 VARIABLE #ERRORS 0 #ERRORS !
 
+: ERROR TYPE QUIT ;
+
+0 [if]
 : ERROR      \ ( C-ADDR U -- ) DISPLAY AN ERROR MESSAGE FOLLOWED BY
       \ THE LINE THAT HAD THE ERROR.
    CR TYPE SOURCE TYPE       \ DISPLAY LINE CORRESPONDING TO ERROR
@@ -32,6 +35,7 @@ VARIABLE #ERRORS 0 #ERRORS !
    #ERRORS @ 1 + #ERRORS !
 \   QUIT  \ *** Uncomment this line to QUIT on an error
 ;
+[then]
 
 VARIABLE ACTUAL-DEPTH         \ STACK RECORD
 CREATE ACTUAL-RESULTS 20 CELLS ALLOT
@@ -1798,6 +1802,7 @@ TESTING S\"  (Forth 2012 compilation mode)
 \ interpretation semantics. S\" in interpretation mode is tested in the tests on
 \ the File-Access word set
 
+1 debug
 T{ : SSQ1 S\" abc" S" abc" S= ; -> }T  \ No escapes
 T{ SSQ1 -> TRUE }T
 T{ : SSQ2 S\" " ; SSQ2 SWAP DROP -> 0 }T    \ Empty string