From be9d0a69fe74929497476346c7ebfdecab2c471a Mon Sep 17 00:00:00 2001
From: Gabriel Omar Cotelli <g.cotelli@gmail.com>
Date: Thu, 29 Feb 2024 11:31:30 -0300
Subject: [PATCH] Ignore separators in project names when looking for
 BaselineOf packages

---
 .../VersionFromRepositoryResolver.class.st             | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/source/BaselineOfLaunchpad/VersionFromRepositoryResolver.class.st b/source/BaselineOfLaunchpad/VersionFromRepositoryResolver.class.st
index f2398ca..a6ed4c1 100644
--- 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 ]
 		].