--- erl_syntax_lib.erl.orig	Sun Sep 21 14:13:18 2003
+++ erl_syntax_lib.erl	Sun Sep 21 14:15:10 2003
@@ -1361,6 +1361,13 @@
                         _ ->
                             throw(syntax_error)
                     end;
+		[M] ->
+                    case erl_syntax:type(M) of
+                        atom ->
+                            {erl_syntax:atom_value(M), []};
+                        _ ->
+                            throw(syntax_error)
+                    end;		    
                 _ ->
                     throw(syntax_error)
             end;
