.

original commit: 862988727c101e427427f5aef06139d654601b2c
2001-07-04 13:51:33 +00:00 · 2001-07-04 13:51:33 +00:00 · db078b7c2f
commit db078b7c2f
parent dbb07d5b76
1 changed files with 3 additions and 2 deletions
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@ -2083,8 +2083,9 @@
 		  [info (map (lambda (child)
 			       (send child get-info))
 			     childs)])
-	     (if (equal? childs children)
-		 ;; Got the infor for the right set of children
+	     (if (and (= (length childs) (length children))
+		      (andmap eq? childs children))
+		 ;; Got the info for the right set of children
 		 (set! children-info info)
 		 
 		 ;; During the call to some get-info, the set of children changed;