diff -u emacs-wiki/emacs-wiki-publish.el emacs-wiki.modified/emacs-wiki-publish.el
--- emacs-wiki/emacs-wiki-publish.el	2005-02-20 03:22:50 +1100
+++ emacs-wiki.modified/emacs-wiki-publish.el	2005-02-20 04:38:25 +1100
@@ -1482,6 +1482,8 @@
                         mouse-face nil keymap nil help-echo nil))
         (goto-char end))
     (insert "<pre class=\"example\">")
+    (while (equal (char-to-string (char-after)) "\n")
+      (delete-char 1))		; delete leading newline(s).
     (emacs-wiki-escape-html-specials end)
     (when (< (point) end)
       (goto-char end))
diff -u emacs-wiki/emacs-wiki-srctag.el emacs-wiki.modified/emacs-wiki-srctag.el
--- emacs-wiki/emacs-wiki-srctag.el	2005-02-20 03:22:51 +1100
+++ emacs-wiki.modified/emacs-wiki-srctag.el	2005-02-20 04:33:33 +1100
@@ -146,8 +146,7 @@
                              (file-name-nondirectory (buffer-file-name))
                            (buffer-name))))
       (with-current-buffer htmlbuf
-        (buffer-disable-undo)
-        (insert "<pre class=\"source\">"))
+        (buffer-disable-undo))
       (let (next-change text face-list fstruct-list)
         (goto-char (point-min))
         (while (not (eobp))
@@ -168,6 +167,9 @@
         (when htmlize-generate-hyperlinks
           (htmlize-make-hyperlinks))
         (goto-char (point-min))
+        (insert "<pre class=\"source\">")
+	(while (equal (char-to-string (char-after)) "\n")
+	  (delete-char 1))		; delete leading newline(s).
         (when htmlize-html-major-mode
           (funcall htmlize-html-major-mode))
         (run-hooks 'htmlize-after-hook)