fixing small bug that was introduced with move to 4.0

svn: r8145
2007-12-29 02:29:51 +00:00 · 2007-12-29 02:29:51 +00:00 · 526458b36c
commit 526458b36c
parent 6ccffdffdb
1 changed files with 3 additions and 3 deletions
--- a/collects/profjWizard/view.scm
+++ b/collects/profjWizard/view.scm
@ -471,9 +471,9 @@
        (define _ (send this begin-container-sequence))
        (define x (make-text-field this (if button-or-false "," "") void pt))
        (set! pa* (append pa* (list x)))
-        (send this change-children 
-              (lambda (y)
-                (remq y pa+)))
+        (send this change-children
+	  (lambda (y)
+	    (remq y pa*)))
        (send this end-container-sequence))
      
      ;; re-establish this pane so that programmers can edit the method info