diff --git a/README.txt b/README.txt
index dfd21c8..d203979 100644
--- a/README.txt
+++ b/README.txt
@@ -1,17 +1,15 @@
 
-
 Open Sound Control
 
-This is a common-lisp implementation of the Open Sound Control
-Protocol, aka OSC. The code should be close to ansi standard, and does
-not rely on any external code/ffi/etc+ to do the basic encoding and
-decoding of packets. since OSC does not specify a transport layer,
-messages can be send using TCP or UDP (or carrier pigeons), however it
-seems UDP is more common amongst the programmes that communicate using
-the OSC protocol. the osc-examples.lisp file contains a few simple
-examples of how to send and recieve OSC via UDP, and so far seems
-reasonably compatible with the packets send from/to max-msp, pd,
-supercollider and liblo. . .
+This is a common lisp implementation of the Open Sound Control Protocol, aka
+OSC. The code should be close to the ansi standard, and does not rely on any
+external code/ffi/etc+ to do the basic encoding and decoding of packets. since
+OSC does not specify a transport layer, messages can be send using TCP or UDP
+(or carrier pigeons), however it seems UDP is more common amongst the programmes
+that communicate using the OSC protocol. the osc-examples.lisp file contains a
+few simple examples of how to send and recieve OSC via UDP, and so far seems
+reasonably compatible with the packets send from/to max-msp, pd, supercollider
+and liblo.
 
 more details about OSC can be found at . .,
     http://www.cnmat.berkeley.edu/OpenSoundControl/
diff --git a/osc-dispatch.lisp b/osc-dispatch.lisp
index 45ed357..afe293c 100644
--- a/osc-dispatch.lisp
+++ b/osc-dispatch.lisp
@@ -68,5 +68,5 @@
   (let ((pattern (car osc-message)))
     (dolist (x (dp-match tree pattern))
       (unless (eq x NIL)
-        ;; (apply #'x '() (cdr osc-message))
-        (eval `(,x  ,@(cdr osc-message)))))))
+        (apply #'x (cdr osc-message))))))
+
diff --git a/osc.lisp b/osc.lisp
index ad4b71a..d3f2063 100644
--- a/osc.lisp
+++ b/osc.lisp
@@ -360,4 +360,6 @@
   (declare (type fixnum n))
   (make-array n :initial-element 0 :fill-pointer n))
 
+
+(provide :osc)
 ;; end