diff --git a/gsc/_ptree1.scm b/gsc/_ptree1.scm
index 83bfadaca..71d68bf3a 100644
--- a/gsc/_ptree1.scm
+++ b/gsc/_ptree1.scm
@@ -1896,9 +1896,8 @@
             (let* ((var (car l))
                    (val (val-of var)))
               (if (or (prc? val)
-                      (and (not *?)
-                           (not (varset-intersects? (bound-free-variables val)
-                                                    vars-set))))
+                      (not (varset-intersects? (bound-free-variables val)
+                                               vars-set)))
                 (loop1 (cdr l)
                        (cons var vars-b)
                        (cons val vals-b)