taking into account that some microdown packages are not from the mic…

…rorepo.

src/BaselineOfMicrodown/BaselineOfMicrodown.class.st

@@ -103,8 +103,19 @@ BaselineOfMicrodown >> preload: loader package: packageSpec [
 					unload;
 					forget ] ]"
 
-	(PackageOrganizer default packages select: [ :each | each name beginsWith: 'Microdown' ])
-		do: [ :each | each removeFromSystem ]
+	| packagesToUnload |
+packagesToUnload := ((PackageOrganizer default packages 
+    select: [ :each | each name beginsWith: 'Microdown' ])  collect: [ :each | each name ]) reject: 
+	[ :each |  
+ #('Microdown-RichTextPresenter' 'Microdown-RichTextPresenter-Tests') includes: each ].
+	"these two are not managed by the microdown repo but the documentation.
+	I should rename them in the future to avoid confusion"
+
+packagesToUnload do: 
+	[ :each | ((IceRepository repositoryNamed: 'Microdown') 
+	     packageNamed: each) unload ]
+
+
 ]
 
 { #category : 'external projects' }