.

original commit: 79f1772662b7eea79061d0e8a7f51f39b4c295fe

collects/tests/mred/item.ss

@@ -1834,7 +1834,8 @@
   (define p (make-object tab-panel% '("App&le" "B&anana" "Co&conut") 
 			 f
 			 (lambda (p e)
-			   (send m set-label (format "Selected: ~a" (send p get-selection))))))
+			   (send m set-label (format "Selected: ~a" (send p get-selection))))
+			 '())) ; could try 'no-border
   (define count 3)
   (define m (make-object message% (format "Selected: ~a" (send p get-selection)) p))
 

collects/tests/mred/mem.ss

@@ -5,8 +5,8 @@
 
 (define source-dir (current-load-relative-directory))
 
-(define num-times 8)
-(define num-threads 3)
+(define num-times 2)
+(define num-threads 2)
 
 (define dump-stats? #f)