1 files changed, 9 insertions, 1 deletions
diff --git a/log-load.e b/log-load.e
index f386b26..e496e04 100644
--- a/log-load.e
+++ b/log-load.e
@@ -199,7 +199,15 @@
 ~
 ~ (log address, string pointer -- log address, execution token or 0)
 : log-load-find-execution-token
-  log-load-find dup { entry-to-execution-token } if ;
+  dup 3unroll log-load-find dup
+  {
+    3roll drop
+    entry-to-execution-token
+  } {
+    drop swap
+    ." No such word: " emitstring newline
+    0
+  } if-else ;
 
 
 ~   This is the same as "create", from interpret.e, except that it takes the