kill a -roll

diff --git a/basis/xmode/catalog/catalog.factor b/basis/xmode/catalog/catalog.factor
index 894ec264abb4ed02eed51f130aea3fcdc5686194..97de95a932d8ded288a696cb4524e8c315b45f37 100644 (file)
--- a/basis/xmode/catalog/catalog.factor
+++ b/basis/xmode/catalog/catalog.factor
@@ -48,7 +48,7 @@ SYMBOL: rule-sets
 
 : get-rule-set ( name -- rule-sets rules )
     dup "::" split1 [ swap (load-mode) ] [ rule-sets get ] if*
-    dup -roll at* [ nip ] [ drop no-such-rule-set ] if ;
+    [ at* [ nip ] [ drop no-such-rule-set ] if ] keep swap ;
 
 DEFER: finalize-rule-set