factor: ?if to ?if-old

[factor.git] / basis / furnace / utilities / utilities.factor

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index db44ad3572e0d52cb031022380bfdaaf947e48a2..35544ae67e66ac4185eaaac5684cf747791a5b42 100644 (file)
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -32,7 +32,7 @@ ERROR: no-such-responder responder ;
 : base-path ( string -- seq )
     dup responder-nesting get
     [ second class-of superclasses-of [ name>> = ] with any? ] with find nip
-    [ first ] [ no-such-responder ] ?if ;
+    [ first ] [ no-such-responder ] ?if-old ;
 
 : resolve-base-path ( string -- string' )
     "$" ?head [