|  | @@ -230,12 +230,6 @@ require: aModuleString
 | 
	
		
			
				|  |  |  	^require value: aModuleString
 | 
	
		
			
				|  |  |  !
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | -withBasePath: aBaseRelativePath
 | 
	
		
			
				|  |  | -	"return a file path which is relative to the basePath."
 | 
	
		
			
				|  |  | -	^	path join: self basePath with: aBaseRelativePath
 | 
	
		
			
				|  |  | -!
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  |  validateBasePath
 | 
	
		
			
				|  |  |  	"The basePath must be an existing directory. "
 | 
	
		
			
				|  |  |  	fs stat: self basePath then: [ :err :stat | err
 | 
	
	
		
			
				|  | @@ -243,6 +237,11 @@ validateBasePath
 | 
	
		
			
				|  |  |  		ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.'  ]].
 | 
	
		
			
				|  |  |  !
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +withBasePath: aBaseRelativePath
 | 
	
		
			
				|  |  | +	"return a file path which is relative to the basePath."
 | 
	
		
			
				|  |  | +	^	path join: self basePath with: aBaseRelativePath
 | 
	
		
			
				|  |  | +!
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  writeData: data toFileNamed: aFilename
 | 
	
		
			
				|  |  |  	console log: aFilename
 | 
	
		
			
				|  |  |  ! !
 |