Fixed problem with overlong class+method names

git-svn-id: https://forth-ev.de/repos/bigforth@1715 3b8d8251-53f3-0310-8f3b-fd1cb8370982

except.fs

@@ -54,7 +54,7 @@
   ?DO  I in_which? dup 0= IF  I @ swap  THEN  "name
   +LOOP  $sum @ count ;
 
-: .back relinfo $100 - "back type
+: .back relinfo $100 - ['] "back catch 0= IF type ELSE drop THEN
     backtrace $18 cells + off ;
 
 also dos
@@ -67,4 +67,4 @@ also dos
     (error cr .back .except dumped $B cells + on ;
 previous
 
-' (file-error errorhandler !
\ No newline at end of file
+' (file-error errorhandler !

theseus-load.fs

@@ -552,7 +552,7 @@ previous theseus definitions
     2dup cur file-name $!
     Onlyforth minos also minos-load also
     ['] included catch dup open-failed# <> IF  throw 0  THEN
-    drop strip-names Onlyforth cur save-state off
+    IF  2drop  THEN  strip-names Onlyforth cur save-state off
     cur with
         s" Θησεύς: " window title! file-name $@ window title+!
     endwith