Index: /trunk/ccl/level-1/l1-processes.lisp
===================================================================
--- /trunk/ccl/level-1/l1-processes.lisp	(revision 689)
+++ /trunk/ccl/level-1/l1-processes.lisp	(revision 690)
@@ -118,5 +118,7 @@
      (serial-number :initform (%new-psn) :accessor process-serial-number)
      (creation-time :initform (get-tick-count) :reader process-creation-time)
-     (total-run-time :initform nil :accessor %process-total-run-time))
+     (total-run-time :initform nil :accessor %process-total-run-time)
+     (ui-object :initform (application-ui-object *application*)
+                :accessor process-ui-object))
   
   (:primary-p t))
@@ -142,8 +144,9 @@
                           (tstack-size *default-temp-stack-size*)
                           (initial-bindings ())
-			  (use-standard-initial-bindings t))
+			  (use-standard-initial-bindings t)
+                          (class (find-class 'process)))
   (declare (ignore flavor))
   (let* ((p (make-instance
-	     'process
+	     class
 	     :name name
 	     :thread (or thread