X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme.4th;h=d0bca194f51d9c9a2dd50aa1495679150ac05860;hp=6e2c49255a788a7293646ee0c5a751aab51dd7f9;hb=7575297b49c6d06e524b9dff038083a863720b53;hpb=6c019df6b459c86bf5de4fd817db2316038935da

diff --git a/src/scheme.4th b/src/scheme.4th
index 6e2c492..d0bca19 100644
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -1652,7 +1652,7 @@ hide env
                 R> drop ['] eval goto-deferred  \ Tail call optimization
             endof
 
-            except-message: ." object not applicable." recoverable-exception throw
+            except-message: ." object '" drop print ." ' not applicable." recoverable-exception throw
         endcase
 ;