diff --git a/src/Glorp-Unit-Tests/GlorpAccount.class.st b/src/Glorp-Unit-Tests/GlorpAccount.class.st
index dbfb1676..b57a3dfd 100644
--- a/src/Glorp-Unit-Tests/GlorpAccount.class.st
+++ b/src/Glorp-Unit-Tests/GlorpAccount.class.st
@@ -1,3 +1,6 @@
+"
+An account in the Trade model
+"
 Class {
 	#name : #GlorpAccount,
 	#superclass : #GlorpTestModelClass,
diff --git a/src/Glorp-Unit-Tests/GlorpTestModelClass.class.st b/src/Glorp-Unit-Tests/GlorpTestModelClass.class.st
index f6b0e81d..ecf86d81 100644
--- a/src/Glorp-Unit-Tests/GlorpTestModelClass.class.st
+++ b/src/Glorp-Unit-Tests/GlorpTestModelClass.class.st
@@ -6,3 +6,9 @@ Class {
 	#superclass : #TestAsserter,
 	#category : #'Glorp-Unit-Tests-Models - Trade'
 }
+
+{ #category : #testing }
+GlorpTestModelClass class >> isAbstract [
+
+	^ self == GlorpTestModelClass
+]
diff --git a/src/Glorp-Unit-Tests/GlorpTrade.class.st b/src/Glorp-Unit-Tests/GlorpTrade.class.st
index 238fb11b..21c81d5b 100644
--- a/src/Glorp-Unit-Tests/GlorpTrade.class.st
+++ b/src/Glorp-Unit-Tests/GlorpTrade.class.st
@@ -1,3 +1,6 @@
+"
+A trade in the Trade model
+"
 Class {
 	#name : #GlorpTrade,
 	#superclass : #GlorpTestModelClass,
diff --git a/src/Glorp-Unit-Tests/GlorpTradeDescriptorSystem.class.st b/src/Glorp-Unit-Tests/GlorpTradeDescriptorSystem.class.st
index cff4d93b..e6a00590 100644
--- a/src/Glorp-Unit-Tests/GlorpTradeDescriptorSystem.class.st
+++ b/src/Glorp-Unit-Tests/GlorpTradeDescriptorSystem.class.st
@@ -1,3 +1,6 @@
+"
+A glorp descriptor system for the trade model
+"
 Class {
 	#name : #GlorpTradeDescriptorSystem,
 	#superclass : #GlorpTestDescriptorSystem,
@@ -13,23 +16,25 @@ GlorpTradeDescriptorSystem >> allTableNames [
 { #category : #accessing }
 GlorpTradeDescriptorSystem >> classModelForGlorpAccount: aClassModel [
 
-	aClassModel newAttributeNamed: #id type: Integer.
-	aClassModel newAttributeNamed: #name type: String
+	aClassModel
+		newAttributeNamed: #id type: Integer;
+		newAttributeNamed: #name type: String
 ]
 
 { #category : #accessing }
 GlorpTradeDescriptorSystem >> classModelForGlorpTrade: aClassModel [
 
-	aClassModel newAttributeNamed: #id type: Integer.
-	aClassModel newAttributeNamed: #account type: GlorpAccount
+	aClassModel
+		newAttributeNamed: #id type: Integer;
+	 	newAttributeNamed: #account type: GlorpAccount
 ]
 
-{ #category : #accessing }
+{ #category : #initialization }
 GlorpTradeDescriptorSystem >> constructAllClasses [
 
 	^(super constructAllClasses)
 		add: GlorpAccount;
-		add: GlorpTrade; 
+		add: GlorpTrade;
 		yourself
 ]