[cells-cvs] CVS cells

[ktilton]

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

Modified Files:
	md-slot-value.lisp 
Log Message:


--- /project/cells/cvsroot/cells/md-slot-value.lisp	2006/06/13 16:19:35	1.20
+++ /project/cells/cvsroot/cells/md-slot-value.lisp	2006/06/15 15:55:01	1.21
@@ -182,7 +182,7 @@
         (when (and (not (eq propagation-code :propagate))
                 (eql prior-state :valid)
                 (c-no-news c absorbed-value prior-value))
-          (trc "(setf md-slot-value) > early no news" propagation-code prior-state prior-value  absorbed-value)
+          (trc nil "(setf md-slot-value) > early no news" propagation-code prior-state prior-value  absorbed-value)
           (count-it :nonews)
           (return-from md-slot-value-assume absorbed-value))