diff --git a/macro-utils.lisp b/macro-utils.lisp
index 7506889..f09a69b 100644
--- a/macro-utils.lisp
+++ b/macro-utils.lisp
@@ -4,7 +4,7 @@
   `(let ,(loop for n in names collect `(,n (gensym)))
     ,@body))
 
-(defmacro only-once ((&rest names) &body body)
+(defmacro once-only ((&rest names) &body body)
   (let ((gensyms (loop for n in names collect (gensym))))
     `(let (,@(loop for g in gensyms collect `(,g (gensym))))
        `(let (,,@(loop for g in gensyms for n in names collect ``(,,g ,,n)))
diff --git a/netpipe.lisp b/netpipe.lisp
index 60e4ff9..53d3ed4 100644
--- a/netpipe.lisp
+++ b/netpipe.lisp
@@ -32,10 +32,10 @@
 
 ;(if-timeout (timeout (format t "socket-receive timed out after ~A seconds.~%" timeout) (force-output) nil)
 
-(defun tcp-read (socket &key (timeout 10))
+(defun tcp-read (socket)
    (when socket
-     (let ((len (parse-integer (tcp-read-raw socket :maxsize 4 :timeout timeout))))
-       (tcp-read-raw socket :maxsize len :timeout timeout))))
+     (let ((len (parse-integer (tcp-read-raw socket :maxsize 4 ))))
+       (tcp-read-raw socket :maxsize len))))
 	
        
 
diff --git a/test-class.lisp b/test-class.lisp
index f9fb055..7297401 100644
--- a/test-class.lisp
+++ b/test-class.lisp
@@ -1,6 +1,6 @@
 (defclass class_a ()
   ((a
-   :initarg a
+   :initarg :a
    :initform (make-array 10 :initial-element 0)
    :accessor a)))