Index: /trunk/source/level-1/l1-processes.lisp
===================================================================
--- /trunk/source/level-1/l1-processes.lisp	(revision 15100)
+++ /trunk/source/level-1/l1-processes.lisp	(revision 15101)
@@ -592,7 +592,9 @@
 			    (vstack-size *default-value-stack-size*)
 			    (tstack-size *default-temp-stack-size*)
+                            (persistent nil)
 			    (initial-bindings ())
-                            (persistent nil)
 			    (use-standard-initial-bindings t)
+                            (class (find-class 'process))
+                            (initargs nil)
                             (termination-semaphore nil)
                             (allocation-quantum (default-allocation-quantum)))
@@ -607,4 +609,6 @@
 				  :use-standard-initial-bindings use-standard-initial-bindings
 				  :initial-bindings initial-bindings
+                                  :class class
+                                  :initargs initargs
                                   :termination-semaphore termination-semaphore
                                   :allocation-quantum allocation-quantum)))