From ec04597451456e550d9248bfdaad59820594a0cf Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 8 Aug 2022 22:59:30 -0500
Subject: [PATCH] Making more renaming subfolders more modular.

---
 repository/Fossil/FossilRepo.class.st | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 0dff006..5e09989 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -443,13 +443,19 @@ FossilRepo >> remote: anUrlString [
 { #category : #accessing }
 FossilRepo >> renameFrom: currentName to: newName [
 
+	^ self renameFrom: currentName to: newName inSubfolder: self localRoot
+]
+
+{ #category : #accessing }
+FossilRepo >> renameFrom: currentName to: newName inSubfolder: aFolder [
+
 	OSSUnixSubprocess new
 		command: 'fossil';
 		arguments: { 
 				'rename'.
-				currentName.
-				newName };
-		workingDirectory: self localRoot;
+				currentName basename.
+				newName basename};
+		workingDirectory: aFolder fullName;
 		redirectStdout;
 		redirectStderr;
 		runAndWaitOnExitDo: [ :process :outString | ^ outString ]