Index: C:/Projects/Mono/vbnc1/vbnc/vbnc/source/General/NamespaceDictionary.vb
===================================================================
--- C:/Projects/Mono/vbnc1/vbnc/vbnc/source/General/NamespaceDictionary.vb	(revision 65329)
+++ C:/Projects/Mono/vbnc1/vbnc/vbnc/source/General/NamespaceDictionary.vb	(working copy)
@@ -25,7 +25,10 @@
     End Sub
 
     Sub AddType(ByVal Type As Type)
-        GetTypes(Type.Namespace).Add(Type)
+        Dim [namespace] As String = Type.Namespace
+
+        If [namespace] Is Nothing Then [namespace] = ""
+        GetTypes([namespace]).Add(Type)
     End Sub
 
     Function GetTypes(ByVal [Namespace] As String) As TypeDictionary