Index: clean.adb
===================================================================
--- clean.adb	(revision 154755)
+++ clean.adb	(working copy)
@@ -1740,6 +1740,7 @@ package body Clean is
                      when 'e' =>
                         if Arg = "-eL" then
                            Follow_Links_For_Files := True;
+                           Follow_Links_For_Dirs  := True;
 
                         else
                            Bad_Argument;