diff --git a/extra/lsys/strings/strings.factor b/extra/lsys/strings/strings.factor
index 3c9dfcab6c..f184ca5dfc 100644
--- a/extra/lsys/strings/strings.factor
+++ b/extra/lsys/strings/strings.factor
@@ -5,7 +5,7 @@ IN: lsys.strings
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: has-param? ( slice -- ? ) { [ length 1 > ] [ second CHAR: ( = ] } <-&& ;
+: has-param? ( slice -- ? ) { [ length 1 > ] [ second CHAR: ( = ] } 1&& ;
 
 : next+rest ( slice -- next rest ) [ 1 head ] [ 1 tail-slice ] bi ;