diff --git a/Markdown.pl b/Markdown.pl
index 6a95b3e..2889be6 100755
--- a/Markdown.pl
+++ b/Markdown.pl
@@ -3006,7 +3006,7 @@ BEGIN {
 	'thead' => \%tagocl,
 	'tr' => { map({$_ => 1} qw(colgroup dd dt li p td tfoot th thead tr)) },
     );
-    %tagblk = map({$_ => 1} qw(address blockquote center div dl h1 h2 h3 h4 h5 h6 hr ol p pre table));
+    %tagblk = map({$_ => 1} qw(address blockquote center div dl h1 h2 h3 h4 h5 h6 hr ol p pre table ul));
     %impatt = map({$_ => 1} qw(checked compact ismap nohref noshade nowrap));
     %lcattval = map({$_ => 1} qw(
 	align border cellpadding cellspacing checked clear color colspan