diff --git a/Makefile b/Makefile
index 0b778c6..91af814 100644
--- a/Makefile
+++ b/Makefile
@@ -93,17 +93,11 @@ $(DIST): cleanall
 				--xform 's!$(THIS)!$(DIST_NAME)!'\
 				$(THIS)
 
-#documentation
-docs: include/*.ads
-	ls include/*.ads | adabrowse -i -o ./ -f-
-	@mv *.html doc
-
 #misc
 all: $(LIB) $(TEST)
 
 clean:
 	$(RM) -f obj/*.* obj/test/*.* obj/debug/*.* ali/*.* ali/debug/*.* 2> /dev/null
-	
+
 cleanall: clean
 	$(RM) -f support/*.gpr bin/* lib/* adaid.gpr doc/*.html  2> /dev/null
-
diff --git a/test/adaid_tests.ads b/test/adaid_tests.ads
index 47f72c4..8a02a53 100644
--- a/test/adaid_tests.ads
+++ b/test/adaid_tests.ads
@@ -7,6 +7,7 @@ with AUnit.Test_Cases;
 package AdaID_Tests is
 
    type UUID_Test is new AUnit.Test_Cases.Test_Case with null record;
+   type Access_UUID_Test is access UUID_Test;
 
    -- Register the tests to run
    procedure Register_Tests(T : in out UUID_Test);
diff --git a/test/test.adb b/test/test.adb
index 99338fb..ce64af4 100644
--- a/test/test.adb
+++ b/test/test.adb
@@ -11,8 +11,9 @@ with AdaID_Tests;
 procedure Test is
 	function Suite return Access_Test_Suite is
 		Result : constant Access_Test_Suite := new Test_Suite;
+                Test : constant AdaID_Tests.Access_UUID_Test := new AdaID_Tests.UUID_Test;
 	begin
-		Add_Test(Result, new AdaID_Tests.UUID_Test);
+		Add_Test(Result, Test);
 		return Result;
 	end Suite;