gb.test Assert.Note complains about Null value

[GB.TEST]
    * NEW: Assert.Note complains about Null value

comp/src/gb.test/.src/TestMe.module

@@ -4,7 +4,7 @@ Public Sub Main()
 
     ' These must succeed:
     
-    ' UnitTest.Main("TestAllAsserts", Null, True)
+     UnitTest.Main("TestAllAsserts", Null, True)
     ' UnitTest.Main("TestSetup", Null, True)
     ' UnitTest.Main("TestElse", Null, True)
     ' UnitTest.Main("TestError", Null, True)
@@ -18,7 +18,7 @@ Public Sub Main()
     'UnitTest.Main(Null, Null, True)
 
     ' Just one test
-    UnitTest.Main("TestAllAsserts", "TestAssert", True)
+    'UnitTest.Main("TestAllAsserts", "TestAssert", True)
 
     'Cheese()
 

comp/src/gb.test/.src/TestMyself/TestAllAsserts.class

@@ -102,3 +102,10 @@ Public Sub TestAssertErrorWithCode()
     Assert.ErrorWithCode(26, "Test error with code")
 
 End
+
+Public Sub TestNote()
+
+    Assert.Note("The next note is Null and it should complain about it:")
+    Assert.Note(Null)
+
+End

comp/src/gb.test/.src/TestSuite/Assert.module

@@ -6,6 +6,10 @@ Export
 
 Public Sub Note(Message As String)
 
+    If Message = Null Then
+        Message = "Got Null in " & Track.ContainerName & ":" & Track.TestName & " ... WHAT???"
+    Endif
+
     PrintBody(Message)
 
 End