diff --git a/lisp/tools.lsp b/lisp/tools.lsp
index 39b809d..a74e398 100644
--- a/lisp/tools.lsp
+++ b/lisp/tools.lsp
@@ -17,12 +17,12 @@ the stream, which follows the 'format directives."
 	    (return))
 	  (write-byte data writer))))))
 
-(defun i2c-scan (port) 
+(defun i2c-scan (port)
   (dotimes (addr 127)
     (with-i2c (str port addr)
       (when str (print addr)))))
 
-(defun i2c-scan2 (port) 
+(defun i2c-scan2 (port)
   (dotimes (addr 127)
     (with-i2c (str port addr)
       (format t "~,20'x: " addr)