--- threads.scm.~1.21.~	2003-04-28 07:51:19.000000000 +1000
+++ threads.scm	2003-06-08 14:31:57.000000000 +1000
@@ -182,7 +182,7 @@
 	%thread-handler)))
 
 (define-macro (parallel . forms)
-  (cond ((null? forms) '(begin))
+  (cond ((null? forms) '(values))
 	((null? (cdr forms)) (car forms))
 	(else
 	 (let ((vars (map (lambda (f)