--- gforth/see.fs	1999/05/20 13:31:57	1.23
+++ gforth/see.fs	2000/05/27 18:55:55	1.26
@@ -136,7 +136,7 @@ VARIABLE SearchPointer
 \ The branchtable consists of three entrys:
 \ address of branch , branch destination , branch type
 
-CREATE BranchTable 500 allot
+CREATE BranchTable 128 cells allot
 here 3 cells -
 ACONSTANT MaxTable
 
@@ -542,10 +542,10 @@ IS discode
 : seedefer ( xt -- )
     dup >body @ xt-see-xt cr
     dup s" Defer" .defname cr
-    >name dup ??? = if
-	drop ." lastxt >body !"
-    else
+    >name ?dup-if
 	." IS " .name cr
+    else
+	." lastxt >body !"
     then ;
 : see-threaded ( addr -- )
     C-Pass @ DebugMode = IF
@@ -629,7 +629,7 @@ IS discode
     \G etc.) is lost.
     name find-name dup 0=
     IF
-	drop -&13 bounce
+	drop -&13 throw
     THEN
     name-see ;