Index: /branches/working-0711/ccl/level-1/l1-processes.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-processes.lisp	(revision 8033)
+++ /branches/working-0711/ccl/level-1/l1-processes.lisp	(revision 8034)
@@ -242,8 +242,12 @@
                             
 (defun symbol-value-in-process (sym process)
-  (symbol-value-in-tcr sym (process-tcr process)))
+  (if (eq process *current-process*)
+    (symbol-value sym)
+    (symbol-value-in-tcr sym (process-tcr process))))
 
 (defun (setf symbol-value-in-process) (value sym process)
-  (setf (symbol-value-in-tcr sym (process-tcr process)) value))
+  (if (eq process *current-process*)
+    (setf (symbol-value sym) value)
+    (setf (symbol-value-in-tcr sym (process-tcr process)) value)))