thodg/cl-unix-cybernetics

diff --git a/core/operation.lisp b/core/operation.lisp
index 1f5a040..06aad77 100644
--- a/core/operation.lisp
+++ b/core/operation.lisp
@@ -100,12 +100,6 @@
 (defgeneric operation-before-p (resource op1 op2))
 (defgeneric sort-operations (resource operations))
 
-(trace resource-op-properties
-       op-properties
-       op-property-before-p
-       operation-before-p
-       sort-operations)
-
 (defmethod resource-op-properties ((res resource))
   (op-properties (class-of res)))
 
diff --git a/test.lisp b/test.lisp
index 1b904d8..3e70446 100644
--- a/test.lisp
+++ b/test.lisp
@@ -24,9 +24,6 @@
 
 ;; TEST
 
-#+nil
-(untrace shell-status)
-
 (setf (debug-p :shell) t)
 
 (with-host "root@dc"