diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st index 0bee194..2915c04 100644 --- a/repository/Grafoscopio/GrafoscopioNode.class.st +++ b/repository/Grafoscopio/GrafoscopioNode.class.st @@ -333,8 +333,12 @@ GrafoscopioNode >> demote [ GrafoscopioNode >> downloadImagesInto: folder [ "comment stating purpose of message" - self extractHtmlImages do: [ :each | |localFolder| - localFolder := (folder / each directory) ensureCreateDirectory. + self extractHtmlImages do: [ :each | |localFolder path| + path:=''. + (each directory substrings: '/') do: [ :eachDirectory | + path:= path , '/' , eachDirectory . + (folder / path) ensureCreateDirectory ]. + localFolder := (folder / each directory). ZnClient new url: each ; downloadTo: localFolder . ]