Ignore separators in project names when looking for BaselineOf packages

ba-st · Feb 29, 2024 · be9d0a6 · be9d0a6
1 parent 3995d77
commit be9d0a6
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/source/BaselineOfLaunchpad/VersionFromRepositoryResolver.class.st b/source/BaselineOfLaunchpad/VersionFromRepositoryResolver.class.st
@@ -8,11 +8,13 @@ Class {
 VersionFromRepositoryResolver >> valueFor: projectName [
 
 	| packageName version |
-	packageName := ('BaselineOf<1s>' expandMacrosWith: projectName) asSymbol.
+
+	packageName := ( 'BaselineOf<1s>' expandMacrosWith: ( projectName select: #isAlphaNumeric ) )
+		               asSymbol.
 	version := ''.
-	self class environment at: #IceRepository ifPresent: [ :icebergRepository | 
-		version := icebergRepository registry detect: [ :repository | 
-			           repository includesPackageNamed: packageName ]
+	self class environment at: #IceRepository ifPresent: [ :icebergRepository |
+		version := icebergRepository registry
+			           detect: [ :repository | repository includesPackageNamed: packageName ]
 			           ifFound: [ :repository | self versionFromGitRepository: repository ]
 			           ifNone: [ self versionFromMonticelloRepository: packageName ]
 		].