diff --git a/csys.lisp b/csys.lisp
index 364e9f1..7db5d52 100644
--- a/csys.lisp
+++ b/csys.lisp
@@ -25,6 +25,8 @@
   (dolist (s syns)
     (funcall s msg)))
 
+;;;; publish/subscribe - pubsub service
+
 ;;;; helpers for operations on complex messages (with content and customer slots)
 
 (defun set-content (fn)
diff --git a/test-csys.lisp b/test-csys.lisp
index 4574877..a6fbc47 100644
--- a/test-csys.lisp
+++ b/test-csys.lisp
@@ -8,7 +8,10 @@
     (lambda (msg) (probe msg state syns env))
   ))
 
-(deftest test-neuron ()
+(defun test-csys ()
+  (test-neuron-basics))
+
+(deftest test-neuron-basics ()
   (let* ((prb (csys:neuron #'probe :env t:*test-suite* :state '(43 44)))
          ;(syn (csys:synapse prb (csys:set-content #'1+)))
          (syn (csys:synapse prb #'1+))
diff --git a/test-decons.lisp b/test-decons.lisp
index 7b1ddc1..d509c08 100644
--- a/test-decons.lisp
+++ b/test-decons.lisp
@@ -19,7 +19,7 @@
     (test-recursive)
     (test-line)
     (test-quad)
-    (test-neuron)
+    (test-csys)
     (t:show-result)))
 
 (deftest test-xplore ()