Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.27.8.24 -r1.27.8.25
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	14 Sep 2014 09:02:41 -0000	1.27.8.24
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	18 Sep 2014 07:10:07 -0000	1.27.8.25
@@ -161,7 +161,13 @@
         append out "<blockquote>DB Query file</blockquote>\n"
         return $out
     } elseif { [file extension $path] ne ".tcl" } {
-        append out "<blockquote><i>Delivered as [ns_guesstype $path]</i></blockquote>\n"
+        set mime_type [ns_guesstype $path]
+        if {[string match image/* $mime_type] && [regexp {packages/(.*)/www/resources/(.*)$} $path . pkg name]} {
+            set preview "<p><img src='/resources/$pkg/$name'>"
+        } else {
+            set preview ""
+        }
+        append out "<blockquote><i>Delivered as $mime_type</i>$preview</blockquote>\n"
         return $out
     }