diff --git a/csys/csys.lisp b/csys/csys.lisp
index 8e91236..17c5278 100644
--- a/csys/csys.lisp
+++ b/csys/csys.lisp
@@ -128,8 +128,8 @@
 
 ;;;; action handlers
 
-(defun basic-actions ()
-  (list :value (value-add)
+(defun basic-actions (&key (threshold 1))
+  (list :value (value-add :threshold threshold)
         :create (create)
         :connect (connect)
         :next (no-op :no-forward t)))
@@ -187,7 +187,7 @@
   (let ((args+ (if name 
                  `(:addr ,(list domain cat name))
                  `(:categ ,(list domain cat)))))
-    (setf args (alx:remove-from-plist :domain :cat :name))
+    (setf args (alx:remove-from-plist args :domain :cat :name))
     (actor:send cell 
       (message:create (list domain :create) :data (append args+ args)))))
 
diff --git a/test/test-csys.lisp b/test/test-csys.lisp
index 4ef3933..a90f88e 100644
--- a/test/test-csys.lisp
+++ b/test/test-csys.lisp
@@ -70,8 +70,8 @@
           ':default (csys:std-proc :actions (csys:basic-actions)))))
 
 (defun actions-zero-initial () 
-  (util:plist-merge (list :next (next-zero-initial)) 
-                    (csys:basic-actions)))
+  (util:plist-merge (csys:basic-actions) 
+                    (list :next (next-zero-initial))))
 
 (defun next-zero-initial ()
   (lambda (msg scope)