--- a/Tools__ObjectModuleInformation.st	Wed Mar 02 17:13:57 2016 +0100
+++ b/Tools__ObjectModuleInformation.st	Thu Mar 10 13:33:33 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libtool2' }"
 
 "{ NameSpace: Tools }"
@@ -1078,11 +1080,17 @@
 "/        menu actionAt:#inspect put:[ module functions inspect  ].
 "/        listView1 middleButtonMenu:menu.
 "/
-        list := (module functions select:[:f | f notNil])
-                        collect:[:f | |entry|
+        list := module functions 
+                        select:[:f | f notNil]
+                        thenCollect:[:f | |entry code|
                                         entry := InfoRow new.
                                         entry name:(f name colorizeAllWith:Color blue).
-                                        entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
+                                        code := f code.
+                                        code isNil ifTrue:[
+                                            entry value:('address: NULL').
+                                        ] ifFalse:[
+                                            entry value:('address: (16r) ' , (code address hexPrintString leftPaddedTo:8 with:$0)).
+                                        ].
                                         entry
                                 ].
         self infoTable2ListHolder value:list.