diff --git a/ls.scm b/ls.scm
index 376f3d0..f0b4c66 100644
--- a/ls.scm
+++ b/ls.scm
@@ -78,12 +78,8 @@
        
        (if recursive?
 	   (let ((directories
-;		  (map (lambda (file-name)
-;			 (string-append directory file-name))
-		       (filter (lambda (file)
-				 (file-directory? file #f))
-			       files)))
-;	     )
+		  (filter (lambda (file) (file-directory? file #f))
+			  files)))
 	     (if (not (null? directories))
 		 (begin
 		   (newline port)