[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv12666

Modified Files:
	tests.lisp 
Log Message:
fixed :around method for process.



--- /project/noctool/cvsroot/source/tests.lisp	2008/05/16 19:23:08	1.2
+++ /project/noctool/cvsroot/source/tests.lisp	2008/05/29 19:21:38	1.3
@@ -3,7 +3,7 @@
 (defmethod process :around ((monitor monitor))
   (if (host-pings monitor)
       (call-next-method)
-    (schedule (+ (get-universal-time) (interval monitor)))))
+    (schedule monitor (+ (get-universal-time) (interval monitor)))))
 
 (defmethod process :around ((monitor ping-monitor))
   (call-next-method))