# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 870951211 -7200
# Node ID b9fdce6b6a16ea14d2434e36c9ce665261250455
# Parent  4d82947e3b025e3ee078712cb9a278cf4fdf588b
*** empty log message ***

diff -r 4d82947e3b02 -r b9fdce6b6a16 HTMLDocGenerator.st
--- a/HTMLDocGenerator.st	Thu Jul 31 19:55:30 1997 +0200
+++ b/HTMLDocGenerator.st	Thu Aug 07 12:53:31 1997 +0200
@@ -357,6 +357,10 @@
      privateClasses owner className metaClass shortName shortMetaName
      text path|
 
+    aClass isNil ifTrue:[
+        ^ ''  "/ just in case ...
+    ].
+
     (wasLoaded := aClass isLoaded) ifFalse:[
         "/ load it - but not a binary
         didLoadBin := Smalltalk loadBinaries.
@@ -547,11 +551,11 @@
         backHRef := backRef
     ].
     backCmd notNil ifTrue:[
-        s nextPutAll:'<a NOPRINT HREF="' , backHRef , '" action="html:' , self name , ' ' , backCmd , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
+        s nextPutAll:'<a NOPRINT HREF="' , backHRef , '" action="html:' , self name , ' ' , backCmd , '"> <IMG NOPRINT SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
         s nextPutLine:'<hr>'.
     ] ifFalse:[
         backHRef ~~ #none ifTrue:[
-            s nextPutAll:'<a NOPRINT HREF="' , backHRef , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
+            s nextPutAll:'<a NOPRINT HREF="' , backHRef , '"> <IMG NOPRINT SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
             s nextPutLine:'<hr>'.
         ]
     ].
@@ -932,7 +936,7 @@
     "
 
     "Created: 24.4.1996 / 15:01:59 / cg"
-    "Modified: 31.7.1997 / 19:54:21 / cg"
+    "Modified: 6.8.1997 / 16:04:58 / cg"
 !
 
 htmlDocOf:aClass backRef:backRef
@@ -1594,5 +1598,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.20 1997-07-31 17:55:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.21 1997-08-07 10:53:31 cg Exp $'
 ! !