--- gforth/test/ttester.fs	2009/04/08 19:59:17	1.14
+++ gforth/test/ttester.fs	2009/09/21 15:17:03	1.15
@@ -172,6 +172,7 @@ HAS-FLOATING-STACK [IF]
     VARIABLE START-FDEPTH
     VARIABLE FCURSOR
 
+    DECIMAL
     : EMPTY-FSTACK ( ... -- ... )
         FDEPTH START-FDEPTH @ < IF
             FDEPTH START-FDEPTH @ SWAP DO 0E LOOP
@@ -179,7 +180,8 @@ HAS-FLOATING-STACK [IF]
         FDEPTH START-FDEPTH @ > IF
             FDEPTH START-FDEPTH @ DO FDROP LOOP
         THEN ;
-
+    HEX
+    
     : F{ ( -- )
         FDEPTH START-FDEPTH ! 0 FCURSOR ! ;