[cells-cvs] CVS cells

[phildebrandt]

Update of /project/cells/cvsroot/cells
In directory clnet:/tmp/cvs-serv30090

Modified Files:
	md-slot-value.lisp 
Log Message:
Fixed ensure-value-is-current, now works with my code.


--- /project/cells/cvsroot/cells/md-slot-value.lisp	2008/04/12 22:53:26	1.42
+++ /project/cells/cvsroot/cells/md-slot-value.lisp	2008/04/13 10:22:03	1.43
@@ -79,7 +79,7 @@
   ;; (trc c "ensure-value-is-current > entry" c (c-state c) :now-pulse *data-pulse-id* debug-id ensurer)
 
   (when *not-to-be*
-    (return-from ensure-value-is-current t))
+    (return-from ensure-value-is-current  (c-value c)))
 
   (when (and (not (symbolp (c-model c)))(eq :eternal-rest (md-state (c-model c))))
     (break "model ~a of cell ~a is dead" (c-model c) c))