1 files changed, 2 insertions, 4 deletions
diff --git a/mu.arc b/mu.arc
index 2b612941..9afccfef 100644
--- a/mu.arc
+++ b/mu.arc
@@ -1381,10 +1381,8 @@
 (def ran-to-completion (f)
   ; if a routine calling f ran to completion there'll be no sign of it in any
   ; completed call-stacks.
-  ; hack: only checks top call in each call stack
-  (no (find [aand stack._
-                  (is f top._!fn-name)]
-            completed-routines*)))
+  (~find [some [is f _!fn-name] stack._]
+         completed-routines*))
 
 ;; system software
 ; create once, load before every test