--- gforth/test/ttester.fs	2007/08/21 09:22:28	1.2
+++ gforth/test/ttester.fs	2007/08/22 06:34:52	1.3
@@ -227,8 +227,10 @@ HAS-FLOATING-STACK [IF]
     : F} ;
     : F...}T ;
 
+    DECIMAL
     : COMPUTE-CELLS-PER-FP ( -- U )
-        DEPTH 0E DEPTH >R FDROP R> SWAP - ;
+        DEPTH 0E DEPTH 1- >R FDROP R> SWAP - ;
+    HEX
 
     COMPUTE-CELLS-PER-FP CONSTANT CELLS-PER-FP
     
@@ -260,7 +262,7 @@ HAS-FLOATING-STACK [IF]
 ' ERROR1 ERROR-XT !
 
 : T{		\ ( -- ) SYNTACTIC SUGAR.
-   DEPTH START-DEPTH ! F{ ;
+   DEPTH START-DEPTH ! 0 XCURSOR ! F{ ;
 
 : ->		\ ( ... -- ) RECORD DEPTH AND CONTENT OF STACK.
    DEPTH DUP ACTUAL-DEPTH !		\ RECORD DEPTH