--- a/RandomTT800.st	Thu Mar 01 10:49:00 2018 +0100
+++ b/RandomTT800.st	Fri Mar 02 14:04:19 2018 +0100
@@ -36,7 +36,7 @@
 	instanceVariableNames:'k x mag01'
 	classVariableNames:'M N'
 	poolDictionaries:''
-	category:'Magnitude-Numbers'
+	category:'Magnitude-Numbers-Random'
 !
 
 RandomTT800 comment:'A pseudo-random number generator; see below for references.